home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / c / credit_text_scroller / credittextscroller.dms / in.adf / TASS / Macros / SETPEN.REXX < prev    next >
Encoding:
OS/2 REXX Batch file  |  1990-08-29  |  337 b   |  19 lines
  1. /* Set Pen Macro */
  2.  
  3. address 'REXX'
  4. parse source type result called resolved ext host garbage
  5. options results
  6.  
  7. address(host)
  8. AskScreenWidth    ; Width = result
  9. AskScreenHeight   ; Height = result
  10.  
  11. Width = (8 * ((Width-4) % 16)) + 4
  12. Height = (8 * ((Height-12) % 16)) + 11
  13.  
  14. request SetPen width%4 Height%4 Width Height
  15.  
  16. Say result
  17.  
  18. exit 0
  19.